home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 10 / CU Amiga Magazine's Super CD-ROM 10 (1997-03-15)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-05][50887 CUAM10].iso / CUCD / Graphics / MPMorph / rexx / FadeToBlack.MPM < prev    next >
Text File  |  1997-02-23  |  376b  |  20 lines
  1. /* example Prescript script file for MPMorph */
  2. /* This example is a simple Warp which fades to black */
  3. /* $VER: FadeToBlack_MPM 4.4 (23.2.97)
  4.  */
  5. parse arg Base
  6.  
  7. numeric digits 12
  8.  
  9. options results
  10. GetAttr Base Frame var f
  11. GetAttr Base TotalFrames var t
  12. options
  13.  
  14. SetAttr Base RMinus TRUNC(f*255/t)
  15. SetAttr Base GMinus TRUNC(f*255/t)
  16. SetAttr Base BMinus TRUNC(f*255/t)
  17.  
  18. exit
  19.  
  20.